Con la capa de primates, la de altitud y capa de puntos para cada uno de los primates, con tres capas base y colores adecuados.
# Mapa de registros de presencia
primates_cr %>%
dplyr::select(stateProvince,
canton,
eventDate,
species) %>%
leaflet() %>%
addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Stamen Toner Lite") %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
addRasterImage(
altitud,
colors = palet,
opacity = 0.8,
group = "Altitud"
) %>%
addCircleMarkers(
data = Ateles,
stroke = F,
radius = 2,
fillColor = 'black',
fillOpacity = 1,
popup = paste(
primates_cr$stateProvince,
primates_cr$canton,
primates_cr$eventDate,
primates_cr$species,
sep = '<br/>'
),
group = "Ateles"
) %>%
addCircleMarkers(
data = Cebus,
stroke = F,
radius = 2,
fillColor = 'Brown',
fillOpacity = 1,
popup = paste(
primates_cr$stateProvince,
primates_cr$canton,
primates_cr$eventDate,
primates_cr$species,
sep = '<br/>'
),
group = "Cebus"
) %>%
addCircleMarkers(
data = Alouatta,
stroke = F,
radius = 2,
fillColor = 'blue',
fillOpacity = 1,
popup = paste(
primates_cr$stateProvince,
primates_cr$canton,
primates_cr$eventDate,
primates_cr$species,
sep = '<br/>'
),
group = "Alouatta"
) %>%
addCircleMarkers(
data = Saimiri,
stroke = F,
radius = 2,
fillColor = 'red',
fillOpacity = 1,
popup = paste(
primates_cr$stateProvince,
primates_cr$canton,
primates_cr$eventDate,
primates_cr$species,
sep = '<br/>'
),
group = "Saimiri"
) %>%
addLayersControl(
baseGroups = c("OpenStreetMap", "Stamen Toner Lite", "Imágenes de ESRI"),
overlayGroups = c("Ateles", "Alouatta", "Cebus", "Saimiri", "Altitud" )
) %>%
addMiniMap(
tiles = providers$Stamen.OpenStreetMap.Mapnik,
position = "bottomleft",
toggleDisplay = TRUE
)
## Warning in showSRID(uprojargs, format = "PROJ", multiline = "NO", prefer_proj =
## prefer_proj): Discarded ellps WGS 84 in Proj4 definition: +proj=merc +a=6378137
## +b=6378137 +lat_ts=0 +lon_0=0 +x_0=0 +y_0=0 +k=1 +units=m +nadgrids=@null
## +wktext +no_defs +type=crs
## Warning in showSRID(uprojargs, format = "PROJ", multiline = "NO", prefer_proj =
## prefer_proj): Discarded datum World Geodetic System 1984 in Proj4 definition
## Warning in showSRID(uprojargs, format = "PROJ", multiline = "NO", prefer_proj =
## prefer_proj): Discarded ellps WGS 84 in Proj4 definition: +proj=merc +a=6378137
## +b=6378137 +lat_ts=0 +lon_0=0 +x_0=0 +y_0=0 +k=1 +units=m +nadgrids=@null
## +wktext +no_defs +type=crs
## Warning in showSRID(uprojargs, format = "PROJ", multiline = "NO", prefer_proj =
## prefer_proj): Discarded datum World Geodetic System 1984 in Proj4 definition